88 
. 
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vw a 
ed vw 
ww We 
vw wu 
Vv Ww 
Ww vu 
vu vw 
Ww Vu 


VWeYVYYVYYUYY 
WVWYYVYVVYYYYUY 


tus usu 
sls A 
eres) ust Ud ud 
dus Md ad usu 
us tai lad usu 
pewiey) wud Ad AS 
wus udu usu 
uu usu uu 


aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaaaaaaaaaaaaa 
aaaaaaaaaaaqaaaa 
mn MANNY 
mn ANMM 
mn nn mn 
mn nn nn 
nw “nn nw 
nw nw mn 
“nw nw “wn 
mn mn nw 
MMWNnM nw 
ANMMM nn 
eccc ax 
ecacac ca 
aa aa aa 
aa aca fo ats 
aa ccacac 
cc aeaace 
ca ca 
[odie 4 aa 
aaacaacacacacac 
@aacaacacacacaca 


8888888888 


nw MM 


nn MAMMM 
nw nw mn 
mw nw nw 
wn “wn nn 
ww ww nn 
“wn nw nn 
nn mn nn 
MMMM nn 
wnnno nn 


nn MMwnn 
vn MMnn 
nn nn “nn 
nn nn nn 
nn “wn nw 
nw “wn “nw 
nw nn “wn 
nn nn “nw 
ANMNM nn 
MMM mn 
Cm kemd = 
Conde =e 


LLLLLLLLLL 
LLLLLLLLLL 


44 103. O13 Original 
16 Copy relevant Taternctten to ROT entries with same KFT indices 
Improve calculation of COM_FORMATS. Comments. PDG 13- Dees 1982 
103- Og Put. a Linkage declaration On SORSSCOMPARE. PD 15-Dec-1982 
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18 Define offsets for use by SORSSCOMPARE. PDG 22-Dec-1982 

1 paecs for a g Longuorg temporary (mot CTXCCOM_LRL_INT) exceeding 
T03-020 Added i output rpDe. Seden- ngth as an output parameter 
HE naeed clean-up routine for the work ares. PDG con sgn. 1985 


Use C REAR for stable merges. G6 2/- 
Define or COMSe PAD for yse ATR ons fon ORPARE. PDG OF pet ogs 
4 peert on errors from S$ S. Use K IZ. 
Pass the context +B... to en aalieeas PDG 12-Feb-1983 
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a 7 
SORSSPEC_FILE “Sep 75 AX-11 Bliss-32 V4.0-742 Pa 1 

1ergeb 138s PSiFb:d) = aM E BESS 38 hee 88S? 9 a) 
3 1 1 MODULE SORSSPEC_FILE ( : 
: § § ew = 'v04-000' ' File: SORSPEC.832 Edit: PDG3030 . 
ioe 094 1 BEGIN ; 
: § B88 : lenaenneensteereeteeernetenennerertreeterreeteettnetentnettensneneenseeseetts : 
: '® * 3 
; 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY a $ 
; 9 009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
; 19 Bi9 ! i: ALL RIGHTS RESERVED. & 3 
* . ® ° 
: 1 og 1 Ie ae SOF TWARE iS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd a * H 
5 1 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ~ tate THE e $ 
; 14 0014 1 !* IN EL USION OF THe ABOVE oo Tolene NOTICE. THIS SOFTWARE OR OTHER ® 3 
b4 15 0015 1 !« COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 3 
3 16 8218 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ 
3 i? Bolg ! i. TRANSFERRED. * é 
: ' * 3 
; 19 ooi8 1 !®* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
: 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
H 1 88 1 ! i: CORPORATION. * : 
3 ! * 3 
H , 00 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * b 
3 5 b05e 1 !e * 3 
3 26 0026 1 !* * $ 
3 i O056 ! j SHESaSOoREESRERESSTeNREREENsETESSENENESNSNEREeRNENEREnENEEseNEeNneneTeNToES : 
: 29 0029 1_ : 
5 0 89 0 1 !4¢4 PF 
3 1 031 1! 3 
3 ¢ 4 } ' FACILITY: VAX-11 SORT/MERGE : 
: 4 0084 i ABSTRACT: 3 
: $ st) : This module contains routines that read and process specification text. : 
; 3s 0038 : i ENVIRONMENT: VAX/VMS user mode ; 
; 40 904 i AUTHOR: Peter D Gilbert, CREATION DATE: 07-Jan-1982 
: 4¢ 904 1 ' MODIFIED BY: 
3 4 04 : 
; 1 
3 1 
3 1 
3 1 
; 1 
; 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
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-Sep-1 AX-1 Oi iss -32 v4.0-742 
iSoseo-1984 0sE1:]0 Yancy OL iag82 ye. Oc242 
5 Use SORSS(DEDALLOCATE . append co ptring “ POG 7-Mar-1 
biel orceee some stuf toluse. SOR Sift sb Sua i roan 
tier dio set the Con. VAR f PDG 

4 5 aad a. shat tot mat} ARE. neko 0771985 os for ADDRESS 
19 033 tay e.COM POUAL + to otf ie it's not nected. pes 26-Aug-1983 
T 0 SORS $eEST~ FILE NAME RAD NAMSB_RSL ang NAM$B_ are zero 
before the OPER” or CREATE. PDG 10-Nov-1983 
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$ 68 7 1 LIBRARY ‘SYSSLIBRARY:STARLET'; 

: 4 1 REQUIRE ‘SRC$:COM'; 

> £0 138 1 LIBRARY 'SRCS:SRTSPC'; 

; f} 123 : LIBRARY ‘SRC$:OPCODES’; 

: 7 1¢) : 'ZIF XDECLARED(ZQUOTE SDESCRIPTOR) XTHEN UNDECLARE ZQUOTE SDESCRIPTOR; %FI 

; 128 1 FORWARD ROUTINE 

al a 144 1 SORSSSPEC FILE: CAL_CTXREG, ! Process specification text 

ee 145 1 CALC_LRL_OuT: CAL_CTXREG NOVALUE, ' Spec file processing for LAL 
; 133 1 SORSSSPEC_KEY_SUB: CAL_CTXREG, ! Process keys for spec file 

; 147 «#1 INPUT: JSB_INPUT ! General input routine 

; & 146 1 COMPARE : JSB~ COMPARE, ! General compare routine 

; 0149 1 SORSSCOMPATIBLE: CAL_CTXREG, ! Test keys for compatibility 
; . pia : CLEAN_UP: CAL_CTXREG NOVALUE; ! Release resources 

; ge B26 : SORSSEND_ROUTINE_(CLEAN_UP) ; ! Declare a clean-up routine 

; & 0154 1 EXTERNAL ROUTINE 

6 CG 0155 1 LIBSSFREE1_DD: ADDRESSING_MODE (GENERAL), ! Free a dynamic string 
; #8 0156 1 LIBSGET_VM: ADDRESSING_MODE (GENERAL), ! Get virtual memory 

; 0157 1 STRSAPPEND : ADDRESSING_MODE (GENERAL), ' Append strings 

; 90 0158 1 SORSSSFPRS: CAL_CTXREG, ! Parse specifications 
; 0159 1 SORSSBEST _FILE_NAME:CAL_CTXREG NOVALUE, ! Get best file name string 
; 0160 1 SORSSALLOCATE : “CTXREG, ' Allocate storage 

; 0161 1 SORSSDEALLOCATE: CAL_CTXREG NOVALUE, ! Deallocate storage 

; 94 Blog 1 SORSSKEY SUB: CAL_CTXREG, ! Generate routines 

3 32 Ber ; SORSSERROR; ! Error routine 

; 0165 1 ! Define offsets within the internal format record 

; 0166 1! 

; .99 0167 1 LITERAL : 

; 100 0168 1 OFF_STAB= 0, ! Offset to the stable information (Long) 

3; 101 0169 1 OFF _FMT= 4, ! Offset to the format number (byte) 

: 102 0170 1 OF F_LEN= 5. ! Offset to the record length (word) 

3 iS? He ' OF F_ADR= ts ! Offset to the data portion of the record 

3 193 0178 ’ : Define offsets for use by SORSSCOMPARE. 

; Yr 0175 1 BIND ZIP_CTX = 0: BLOCKCCTX_K_SIZE] FIELD(CTX_FIELDS); 

; 108 0176 1 GLOBAL LITERAL 

: 109 0177 1 COMSL_COLLATE= ZIP_CTX COn_COLLATE). 

3: 110 0178 #1 ~PAD= ZIP_CTXCCOM_PAD}; 


9 
PEC_F tose -1984 00:51:1 AX-11 Bliss-32 V4.0-742 Page 4 SOR 
yoee008 aes 1 30071382 99730: 49 SORT32.SRCJSORSPEC.B32;1 9° (3) v04 
: 13 i GLOBAL ROUTINE SORSSSPEC_FILE: CAL_CTXREG = ; 
: 114 181 1 te 
s 415 1 1! . 
; 118 : i FUNCTIONAL DESCRIPTION: ; 
; 133 ; 5 ! This routine processes the specification text. : 
; 0 $ | FORMAL PARAMETERS: | 
2:3 é 1 § 1 i NONE | ; 
wy 190 1 | : 
; ! é 191 i IMPLICIT INPUTS: 
: 4 6 198 1 i NONE ; 
; 1 194 13 2 
; § 0195 i IMPLICIT OUTPUTS: 3 
Pinas, Be ape : 
; : 199 { ROUTINE VALUE: 
; : : 4 : Status code. : 
~§ 6 88 1 | SIDE EFFECTS: 
: i 8 0 $8 i i NONE : 
: 139 06 1 i 
: 140 0207 1 !-- : 
+ 141 0208 BEGIN : 
; 148 209 EXTERNAL REGISTER ; 
: 14 0210 CTX =  COM_REG_CTX: REF BLOCKCCTX_K_SIZE] : 
: 144 HF ae FIELD(CTX_FIECDS); : 
: 146 9 ig . FAB: $FAB_DECL, ' FAB block ; 
t+ 147 14 NAM: SNAM-DECL VOLATILE, i NAM block ; 
1 Be Bg: Suathk: |” AB block : 
: 150 6 17 PNA: —_ BLOCKENAMSC MAXRSS, BYTE ; ' File name string area ; 
; 151 018 BUF:  VECTORCMAX SPC_LINE, BYTE), i Buffer area 3 
: 136 021 DESC: BLOCKC8,BYTE), ! Dynamic string descriptor : 
: 13? 2 9 STATUS; ' Status : 
; 136 § : Initialize the FAB (file access block) and the NAM (name block) | : 
; $F NIT( : 
: 139 P é . AB eAB FABLBASE J. ' FAB block | : 
: 160 P NAM = NAMLBASE J, ' NAM block : 
> 161 Be ' FNA “ ' File name area (set below) : 
; 16 P g ! FNS ! File name area size (set below) : 
3 188 P 0 FAC = GET, ' File access : 
: 164 i 1 SHR = GET ' Sharin : 
> 165 P Ose DNA = upLiT BYTE(STR_SPC_EXT), | Default extension is .SRT ; 
; ¥ P DNS = ZCHARCOUNT(STR_SPC_EXT), ! Default extension is .SRT . 
: 189 P 4 RFM = VAR, ! Needed if no input files : 
: 168 5 RAT = CR): i Record attributes : 


9 
vou-000 = 1eSenr}98e 98:50:19 YRMGHL BLL HR H05242 taf 


P SNAM_INIT( 

e NAM = NAMCBASE_), ! NAM block 

S ESS = ZALLOCATION(FNA), ! Expanded name string size 

P ESA = FN > P ' Expanded name string area 

Pp RSS = ZALLOCATION(FNA), ! Resultant name string size 
RSA = FNALBASE_J); ! Resultant name string area 


! Initialize a dynamic string descriptor for the text 


SCCDSC$W_LENGTH) = 0; 

SC DSC$B-DTYPE] = DSCSK_ 

s¢ DSCS$B~CLASS : DSCSK- 
= 0; 


YPE_T; 
iw ASS_D; 
CCDSCSA_POINTER 


' 
; 
DE 
DE 
DE 
DE 


WN "OO DONOULSWN—O”O 


Loop for each input file 


DDB = CTXCCOM. SPC pba); ! Point to first DDB 
WHILE DDBLBASE- NEQ 0 60 


Actually open the input file 


NAMCNAM$SB_RSL] = 8: 

NAMCNAMSB-ESLJ = 0; 

FABLFABSW_1IF1J = 0; 

BEGIN 

SWITCHES STRUCTURE (BLOCKC BYTE)); 
FABCFABSB_FNS) = .DDS DDB_NAME JLOSCSU_LENGTH]; 
FABCFABSL-FNA] = .DDBLDDB_NAME JCDSCSA_POINTER); 


N 
STATUS = SOPEN(FAB = FABLBASE_]); 


WN 9 OONOAUE WN" OOONOUE WN" OVOONO 


SLAP EP ALANLDLINIVINA ES-ES EEE EEA 


ONOUS wn 


wn 


: Get the best file name string available into NAMSB_RSL/NAMSL_RSA 
SORSSBEST_F ILE_NAME (FABLBASE_J, DDBCDDB_NAME)); 
IF NOT .FABCFABSL_STS) 


RETURN SORSSERROR(SORS_ SHR -OPENIN, 1, DDBLDDB_NAME], 
-FABLFABSL_STS], .FABLFABSL_STVJ); 


: Connect to the FAB 
RAB = DDBCDDB_RAB+BASE_); 
NIT( 


$SRAB 
RABCBASE_J, 
FABLBASE_J, 


EQ, 
ALLOCATION (BUF ) 
<RAH,LOC,MAS>); 


STATUS = SCONNECT(RAB = RABCBASE_)); 
IF NOT .STATUS 


SN NNN NSO OO 


COnou SSS Sao R AN SSS 


J 

b& 

- 
nhnunun 


o 


SOOOOOCOCOOSOOCOSOOCOOCOCOOSOCOOOOSCOOCOOCOCSOO OOOO OOOO OCOOOOOOOOOOOOOOoOOO 
AAA AAA AANA MAAN ANANA AHA & BE AAA AAA AIAIPIPIPUPIPONIPINPIPUPINIPININPONPONPNINNPY 
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MEUM OC OCONOULS WN OO wu 
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“oO 
Mw 


N 
RETURN — RROR(SORS$_SHR_OPENOUT, 1 


DBCDDB_NAME]J, 
ABCRABSL_STSJ, .RAB RABSL.SfV9); S 


Read all the records from the file 
WHILE TRUE DO 
BEGIN 


MIFSWN—OOONO 
oo 
ooo 


IF (STATUS = SGET(RAB = RABCBASE_J)) 
THEN 


; 0 4 

; : 

; 03 4 

; Be BEGIN 

; 5 LOCAL 

; 4 6) D: VECTORC2]; ! Descriptor 

3 41 o8 1 Append the record and a null to the string 

; 26 0310 D 0} = -RABERABSU_RSZ); 

; 4G 0311 OC1J = .RABLRABSL_RBFI; 

; 45 Bag DECR I FROM 1 TO 0 DO 

3 re 0313 6 BEGIN 

3 4 baie 6 STATUS = STRSAPPEND(DESCCBASE_J, D(0]); 

: +8 8 1? 2 i" » STATUS 

; 29 O37 6 of0 RETURN SORSSERROR(SORS_SHR_SYSERROR, 0, .STATUS); 

3 = 1; 

; 25 0319 DC1) = UPLIT BYTE(O); 

ee = 

: 255 0 4 ELIF 

; 256 $3 : 4 STATUS EQL RMSS_RSA ! Record Stream Active 

: 257 0324 4 THEN 

: 38 0325 ? $WAIT (RAB=RABCBASE_]) ! Wait until not so active 

; $86 $359 4 EXITLOOP; ! Some other error 

: 1 0389 ND; . 
; €8 0330 ; 
: 264 83 1 ' Check for the expected status 3 
; 265 0 ; ! 3 
: $8 O887 IF .STATUS NEQ RMSS$_EOF : 
F 68 335 SORSSERROR(SORS$_SHR_READERR, 1, DDBCDDB_NAME]), : 
: +4 : -RABCRABSL_STSJ, .RABCRABSL_STVJ); ‘ 
> 271 3 ; 
:; 2 3 ' ALL records have been read from this file, so close it. 3 
; a ? Zero the IFI in the DDB, so we know that this file is closed : 
; 37s 4g 4 IF NOT SCLOSE (FAB=FABLBASE_ 2) ; 
: 27 4 SORSSERROR (SORS SHR_CLOSEIN, 1, DOBCDDB_NAME), ; 
: 278 5 FAR FABSL_STS1; FABCFABSL_STV)); ; 
: 79 6 DDBCDDB_IF1IJ = 0; : 
; Bt 48 ; 
3 282 4 ! Advance to the next file 3 


SORSSPEC FILE 18-Sep-1964 00:54:10 YAN-11 OL ing=52 40-742 Page 67 


-PSECT SORSRO_CODE ,WOWRT, SHR, PIC,2 


3 3 0 ! $ 
: 4 1 DDB = .DDBCDDB_NEXT); 3 
$ 5 § END; 3 
: 589 i 
3 se 5 Append any other text to the buffer : 
3 90 $ STATUS = STRSAPPEND(DESCCBASE_J, CTXCCOM_SPC_TXT]); 3 
: 3) 8 IF NOT .STATUS THEN RETURN SERagehnoncsORS. SAR _SYSERROR, 0, .STATUS); ‘ 
: 29 60 ; 
3 3e 0 Y } Allocate a work area to hold the tables produced by SORSSSFPRS : 
: 6 iF .CTXCCOM_WRK_ADR) EQL 0 : 
3 3$ §307 THEN $ 
; 98 S302 BHe 3 
$ i) 0366 CTXCCOM_WRK_SIZ]) = WRK_K_ALLOC; é 
; 00 0367 STATUS = LIBSGET_VM(CTRCCOM WRK $12) Waste WRK =fPRd? 3 
; 301 0368 IF NOT .STATUS TREN SORSSERR OR(SORS SHR_SYSERROR, 0, .STATUS); F 
; 30 0369 CTXCCOM_WRK_ENDJ = .CTXCCOM_WRK_ADR] + “th COM_WRK.S1Z); 3 
$ 0 0370 END; é 
3 04 0371 3 
3; 305 b376 3 
; we 037 ' Call SORSSSFPRS to build the tables ; 
; 07 0374 ! $ 
; 308 0375 BEGIN 3 
; 309 Bere ; LOCAL D: VECTOR(2); ! Descriptor 2 
; 310 037 DCO) = o DESC ED SESW LENGTH): 3 
: 311 0378 DC1] = .DESCCDSCSA-POINTER); F 
3 ig 0379 STATUS = SORSSSFPRS(D(0)); 3 
3 1 0380 IF NOT .STATUS 3 
3 14 Bees T 3 
3 $12 0 S RETURN SORSSFATAL(.STATUS); 3 
3 16 038 END; 3 
; 317 0384 3 
; 318 0385 3 
; $5 Ose ; Free the dynamic strings 3 
3 33 0388 STATUS = LIBSSFREE1_DD(DESCCBASE_J Free the strin $ 
; $56 0389 IF NOT 2ST ATUS THEN ~SORSSERROR ORS, SHR SYSERROR; 0, .STATUS); é 
; 2 0390 STATUS = LIBSSFREE1_) TXCCOM XT Fre e the string é 
: $5¢ b303 IF NOT .STATUS THEN ~SORSSERRORTSORS.. SHR_ ivsenrone *o. -STATUS); : 
; $58 0398 RETURN SS$_NORMAL; 3 
3 94 END; F 
-TITLE SORSSPEC_FILE 3 

IDENT \Vv04-000 é 

.PSECT SORSRO_CODE..___ sss 2,NOWRT, SHR, PIC, : 

00000000v 00000 _CLEAN_UP: 3 

~LONG <CLEAN_UP=_CLEAN_UP> 3 : 


m9 
SORSSPEC_FILE 16-Sep-1984 00:51: AX-11 Bliss-32 v4.0-742 P 8 
y0e2000 1ersee= ihe PSiRb:) «| Pa Bb iss s3e ve 205242 — 
54 52 53 0000 P.AAA: ASCII \.SRT\ P : 
85 Sopoe Prana: cate! Q 
Z1P_CTX= 0 : 
COMSL_COLLATE== 104 ; 
COMSB~PAD== 257 : 
.EXTRN LIBSSFREE1_DD L 18SGET_vM : 
-EXTRN STRSAPPEND, SORSSSFPRS ; 
“EXTRN SORSSBEST_FILE_NAME : 
“EXTRN SORSSALLOTATE, ~SORSSDEALLOCATE : 
“EXTRN SORSSKEY_SUB, SORSSERR : 
SEXTRN SYSSOPEN; SYSSCONNE : 
“EXTRN SYS$GET, SYSSWAIT : 
-EXTRN SYSSCLOSE ; 
07FC 00000 ENTRY SORSSSPEC_FILE, Save R2,R3,R4,R5,R6,R7,.RB,- ; 0179 : 
BF otf fOee” Ce OE fo09 MOVAB — SORSSERROR, R10 ; 
0050 =F 00 6E . 60 2c auots mOovCS #0, (SP); #0, #80, S$RMS_PTR ; 0235 : 
BO AD 5083 8F BO 001 MOVW #20483, S$RMS_PTR ; : 
C6 AD 0202 8F BO 0001D MOVW #514, $RMS_PTR+22 : 3 
cE AD 0202 8F BO 00023 MOVW #514, SRMS_PTR+30 s : 
Et are : 7 
—5 AD 06 98 00086 MOVB #4, SRMS_PTR+53 : : 
0060 8F 00 6E oan ng 2c 00038 MOVCS #0, (SP)> #0, #96, SRMS_PTR ; 0241 ; 
FF50 cD 6002 8F BO 00042 MOVW #24578, SRMS_PTR : : 
FF52 «CD 01 8E 00049 MNEGB #1, S$RMS_PTR32 : 
in nomen 2 tt : 
FF5C CD 0094 ce 9 0005A MOVAB NA, _SRMS_PTR+12 : 
08 AE 020E0000 ef 00 00061 MOVL 434471936, DESC : 0246 
57 OOAC cB 09 0006C MOVL Mester. DDB + 0254 
: 12 00071 1$: BNEQ  2$ > 0255 
0121 31 00075 BRW 11$ : 
FF53. CD 94 00076 2S: CLRB ss NAM#+3 > 0260 
Me 8 iA ea ee 
58 04 Ni 8 00081 MOVAB 4(DDB), R8 : $588 ; 
E4 AD 68 $5 90 5 MOVB (RB), FAB+S2 ; : 
oie 83 Ab OF Obo8e i $388 : 
000000006 09 FB 00091 CALLS i, SYSSOPEN : 
§ pp 0096 PUSHL at : 0273 ; 
BO AD 9F 0009D PUSHAB FAB : : 
000000006 09 we 02 FB 0 AQ CALLS Fags onSgbest-F1Le wae Fe : 
7E B8 OA 5 O0AB OVO FAB+8; =(SP) : 0378 : 
8 DD 0 AF PUSHL RS : 0277 : 
if DD 00081 PUSHL # : : 
oorc109c §«=sBF.SCédD 0083 PUSHL #1839260 : ; 
48 11 0008 BRB 4$ : : 


Nn 9 
SORSSPEC_FILE 16-Sep-1984 00:51: AX-11_ Bliss-32 V4.0-742 P 
- -Sep- :10: SORT32.SRCJSORSPEC.B32;1 
900.008 19-08-1382 99:35:19 2.SRC3 32 tuo 
56 146 A? QE 00088 3$: MOV 20(R7), RAB ; 
0044 &F 00 bE 00 3t f moves #0, (SP), #0, #68, (RAB) : 
66 4401 if ) ¢ MOVW #17409, (RAB) : 
04 Ab ooor6290 BF i ce MOV. # 60 0; 4(RAB) : 
0 Ab 84 8F 9B 907 MOVZBW #132, 32(RAB) : 
4 Ab 10 AE 9E 0000¢ OVAB BUF, 36(RAB) : 
C Ab BO AD 9E 000E1 MOVAB FAB, 60(RAB) : 
56 0D DOE PUSHL RAB : 
000000006 00 1 FB OO0E CALLS #1, SYSSCONNECT : 
59 ; D0 0 EF MOVL RO, STATUS : 
12 E Fe BLBS status, $ : 
7E 08 As D OOF mova (RAB), =(SP) : 
58 DD 000F9 PUSHL R8 : 
01 DD 000FB PUSHL : 
001C10A4 8F ODD S00FD PUSHL #1839268 : 
6A 05 FB 0195 4$ CALLS #5, SORSSERROR : 
56 DD igi 5$ PUSHL RAB : 
000000006 00 01 FB 00109 CALLS #1, SYSSGET : 
59 50 00 00119 MOVL RO, STATUS ; 
2c 59 &9 0011 BLBC srATUs 7$ : 
6E 22 A&B 3C 00116 MOVZWL (RABS, : 
04 AE 28 A6 DO OO1IA MOVL  4O(RAB). D+4 ; 
52 01 DO OO11F MOVL — : 
5E 0D 001¢2 6$ PUSHL : 
Oc AE 9F 00124 PUSHAB DESC ; 
000000006 99 02 FB 00127 CALLS #2, STRSAPPEND : 
9 50 DO 0012E MOVL RO, US ; 
77 59 €9 00131 BLBC STATUS, 12$ ; 
6E 01 00 00134 MOVL #1, ; 
04 AE FECA §6OCRCOCOSE: 0137 MOVAB P.AAB, D+4 ; 
E2 52 F4 0013D SOBGEQ i 6$ : 
CS 11 00140 BRB § ; 
000182DA = 8F 59 D1 00142 7$ CMPL STATUS, #99034 F 
0B 12 00149 BNEG 8S. : 
56 DD 00148 PUSHL RAB : 
000000006 00 01 FB 0014D CALLS #1, SYSSWAIT ; 
e! 11 00134 BRB 5$ : 
0001827A =F 9 D1 0196 3 CMPL STATUS, #98938 ; 
11 13 0015p BEQL 6-9 : 
7E 08 AS 7D 0015F MOV  &(RAB), -(SP) ; 
58 0D 0163 PUSHL R : 
O1 DD 0016 PUSHL # : 
001¢10B2 8F DD 00167 PUSHL #1839282 : 
6A 05 FB 0016D CALLS #5, SORSSERROR : 
BO AD 9F 9170 9$ PUSHAB FAB ; 
000000006 00 gi FB 017 CALLS #1, SYSSCLOSE ; 
11 0 E O17A BLBS RO, 10$ : 
7E B8 AD 7D 0017D OVO FAB+8, -(SP) : 
58 DD 00181 PUSHL R8 ; 
1 DD 4 : PUSHL #1 ; 
001¢1052 8F DD 001 PUSHL #1839186 : 
6A 5 FB 00188 CALLS "3 SORSSERROR ; 
Oc A? D4 ot E 10$: CLRL  12¢ddB) ; 
57 67 DO 001 MOVL (DDB), DDB ; 
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SORSSPEC_FILE 16-50 Sep-1984 0 AX-11 Bliss-32 V4.0-742 Page 10 
506.800 1 ~3ep-1986 90:29 tf SORT32.SRCJSORSPEC.B32;1 . (3S 
FEDA 31 00194 BRW 1$ 3 0255 ; 
00F4 CB 3} a187 11$: PUSHAB 244(CTX) : $323 ; 
OC AE 9F 00198 PUSHAB DESC : : 
000000006 99 9 F O19 CALLS #2, STRSAPPEND : : 
9 DO OO1A MOVL RO, ST US : : 
0 23 E8 OO1A BLBS STATUS, 13$ : 0358 ; 
9 DD OO1AB 12$:  PUSHL STATUS : ; 
7E D4 OAD CLRL = SP) : : 
001C11B4 8F DD OOTAF PUSHL #1839540 : : 
6A 03 FB 001B5 CALLS #3, SORSSERROR : ; 
04 0188 RET : ; 
53 0128 cB E O19 13$:  MOVAB 296 (CTX), R3 : 0363 : 
63 D 1BE TSTL (R3) : : 
2— 12 001C BNEQ 15$ : ; 
52 0124 (CB 9E O01c¢ MOVAB 292 (CTX) R2 + 0366 : 
62 00010000 8F DO 001C MOVL #655 $. (R2) : : 
OC BB OOICE PUSHR #*M<R + 0367 ; 
000000006 00 08 FB 90109 CALLS 2, LIBSGET_VM : ; 
59 50 DO 00107 MOVL an : : 
OD 59 £8 OO1DA BLBS STATUS, 14$ > 0368 F 
59 DD 001DD PUSHL STATUS : ; 
7E D4 001DF CLRL. -=(SP) : ; 
001¢11B4 8F DD OO1E1 PUSHL #1839540 : : 
6A 03 FB O01E7 CALLS #3, SORSSERROR : ; 
012¢ CB 63 62 C1 OO1EA 14$: ADDL3 (Rd), Hie 300(CTX) > 0369 : 
6E 08 AE 3C 001FO 15$: §§ MOVZWL DESC. : 0377 : 
04 AE OC AE DO 001F4 OVL  DESC+4, D+4 : 0378 ; 
SE DD 001F9 PUSHL SP : 0379 ; 
000000006 00 gi FB OO1FB CALLS #1, SORSSSFPRS : : 
59 0 dO 90208 MOVL RO, STATUS ; ; 
0c 59 £8 9020 BLBS STATUS, 16$ : 0380 F 
50 59 07 CB 00208 BICL3 #7, STATUS, RO : 0382 ; 
7E 50 04 ¢9 0020¢ BISL3 #4, RO, -(SP) : ; 
6A 01 FB $0519 CALLS #1, SORSSERROR g é 
04 00 1 RET : ; 
08 AE 9F 00214 16$:  PUSHAB DESC : 0388 ; 
000000006 00 01 FB 00217 CALLS #1, LIBSSFREE1_DD ; 
59 50 DO O021E MOVL RO, TUS ; 
0p 59 £8 00221 BLBS STATUS, 17S : 0389 
59 DD 00224 PUSHL STATUS ; 
7E D4 00 6 CLRL F 
001¢11B4 BF DD 00 PUSHL #1839540 F 
6A 03 FB 00226 CALLS #3, SORSSERROR : 
00F4 CB OF 99 1 17$: PUSHAB 244(CTX) : 0390 
000000006 00 1 FB 5 CALLS #1, LIBSSFREE1_DD : 
59 0 D9 0023¢ MOVL : 
OD 9 E8 0023F LBS STATUS, 18$ : 0391 
9 DD 00242 PUSHL STATUS ; 
E D4 00244 LRL. = ; 
001C11B4 8F DD 00246 PUSHL #1839540 ; 
6A 03 FB 024C CALLS #3, SORSSERROR F 
50 1D 00 4F 18$: MOVL #1, RO : 0393 
04 00252 RET : 0394 
; Routine Size: 595 bytes, Routine Base: SORSRO_CODE + 0005 
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1 SORT32.SRCIJSORSPEC.B32;1 


H 8 0 8? } ROUTINE CALC_LRL_OUT: CAL_CTXREG NOVALUE = 

: 331 b309 1 t+ 

; é 0398 1! 

: z +944 : FUNCTIONAL DESCRIPTION: 

3 5 0401 1! Do some processing of the spec tables after the input LRL is known. 
3 337 prs : It determines the longest output record Length. 

: 38 0404 1 ! FORMAL PARAMETERS: 

3 ZoP 0405 1! 

; s¢9 page 1! NONE 

3 Al 0407 1! 

H ri} 0408 1 ! IMPLICIT INPUTS: 

5; 3 0409 1! 

> 344 0410 1! NONE 

> 345 0411 1! 

> 346 brig 1 ! IMPLICIT OUTPUTS: 

: 347 041 1} 

> 348 0414 1! CTXCCOM_LRL_OUTI Longest output record Length 

: 349 0415 1! CTXCCOM_SPEC_TKSJ Total key size 

; 350 0416 1! CTXCCOM_FORMATSJ Number of different record formats 

ae +) 0417 1! CTXLCOM_VAR) Flag indicating variable-length records 
; 33¢ 0418 1! FDTCO,FOT_FLD_SIZJ Input LRL 

: = 0419 1! KFTC®,KFT_NDE_SIZ] Input LRL (only those that refer to first FDT) 
; 354 0420 1! KFTC*,KFT_NDE POS) Position of field in internal node 

; $22 bes) . KFTC®,KFT_BUICD) True if field must be built/copied 

3 6SOr ee 1 ! ROUTINE VALUE: 

s joe 04246 1! 

; io 0425 1! Status code. 

; 360 bese 1! 

s Sel 0427 1 ! SIDE EFFECTS: 

.. 0428 1! 

; i 0429 1! NONE 

; 364 0430 1! 

3; 3eo 0431 1 !-- 

; 366 0432 2 BEGIN 

3; Jer 0433 2 EXTERNAL REGISTER 

: 368 0434 § CTX = COM_REG_CTX: REF BLOCKCCTX_K_ SIZE) 

; aay 0435 FIELD(CTX_FIECDS); 

; 370 0436 2 BIND ee 

3 of) 0437 2 RDT = CTXCCOM_RDT_ADR]: REF RDT_TABLJ, ! Record definition table 
> 37 0438 KFT = CTXCCOM-KFT-ADRJ: REF KFT-TABLJ. | Key field tabl 

3; ay 0439 FDT = CTXCCOM_FDT_ADR]: REF FOT_TABLJ, ! Field definition table 
; a res CFT = CTXCCOM_CFT_ADRJ: REF CFT_TABLJ; ! Constant definition table 
$ 76 bee OCAL 

3 77 44 SEEN: BITVECTORCKFT_MAX), 

: 379 445 MAXKSUM; 

; 380 44 

‘.) 44 

; 38 44 ! Store the input LRL_in: 

; 38 44 ' - FOTCO,FDT_FLD_S1Z] and KFTC*,KFT_NDE SIZ) for every KFT entry 

; 384 0450 i with KFT_CONSTANT = FALSE and KFT_FDT_IDX = 0. 


dD 10 
Soreehy cof ILE 1p~300= 138% 90:31:19 AX-11 Bliss-32 V4.0-742 Page 12 


“Sep SORT32.SRCJSORSPEC.832;1 (4) 
3 6] 4 ; BEGIN 
; 4 LOCAL 
; 8 454 KFT PTR: REF _KFT_ ste: ! Local pointer to KFT table 
: 389 455 FDTCO,FOT_FLD $17) =~. CTXCCOM_LRLI; 
: 390 4 6 KFT PTR ="KFIT BASE J 
; 31 4 : DECR I FROM -CTXCCOM=KFT_S1ZJ-1 TO 0 DO 
; 38 439 4 IF NOT -KFT_PTRCO,KFT_CONSTANT] AND .KFT_PTRCO,KFT_FDT_IDX] EQL 0 
: 95 bre) 4 KFT_PTRCO,KFT_NDE siz] = .CTXCCOM_LRLI; 
: 96 46¢ 4 KFT_PTR7= KFT_PTRE1,BASE_]; 
: 39 46 END; 
3 38 464 END; 
3 465 
; 400 046 
; 401 046 ' Initialize our variables 
; re 0468 : 
; 40 0469 CHSFILL(O, ZALLOCATION(SEEN), SEENCO)); 
: 404 0470 MAX_DSUM = 0; 
: 405 0471 MAX_KSUM = 0; 
> 406 047 
; 407 047 
3 rt's 4 Bere ; Loop through all record definitions for include statements 
; 410 0476 DECR RDT_IX FROM .CTXCCOM _RDT_SIZ]-1 TO 0 DO 
> 411 0477 IF .RDTCTRDT_IX, RDT_INCLODE) 
: $ig 0478 THEN 
3s 41 0479 BEGIN 
3: 416 0480 BUILTIN 
3: 415 0481 TESTBITSS; | 
; 616 048 OCAL 
3 617 048 3 
; 418 Bees 
3; 419 485 ' Have we seen this before? 
: 420 0486 ! 
: 421 0487 Z = .RDTC.RDT_IX, RDT_KFT_IDX); 
3; 4 ¢ 0488 ; IF TESTBITSS(SEENL.2I) 
3; 4 0489 THEN 
; 4246 0490 4 BEGIN 
; 425 C 0491 4 XC 
: ? $ : 93 ? ' Find the RDT entry, and copy relevant information 
: (36 C0494 4 DECR TMP_IX FROM .CTXCCOM_RDT_SIZJ-1 TO 0 DO 
; 499 C0495 4 IF .RDTCTTMP_IX, RDT_INCLODE) 
: 430 C 0496 4 THEN 
3 431 C 0497 4 BEGIN 
; 32 C0498 4 IF .Z2 EQL .RDTC.TMP_IX, RDT_KFT_IDXJ 
: 43 C 0499 4 THEN 
3; 434 C 0500 4 
3; 435 C 0501 4 ! currently there's no relevant info to copy 
: $3 C 288 4 EXITLOOP; 
s &@ C 05 4 END; 
; $38 C 0504 4 END; 
; 439 : 5 4)% 
: 440 4 0; 
3; 641 507 4 END 
: 642 508 3 ELSE 


10 
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> 443 09 4 BEGIN : 
: 444 10 4 LOCAL ; 
> 445 11 4 DSUM, ! Sum of data lengths : 
; 446 \¢ 4 KSUM i Sum of key Leng hs ; 
: G47 313 4 KFT_PTR: REF KFT_TABC); i Local pointer to KFT table : 
: ret 318 ? : Increment the number of different record formats : 
3 43] 0817 4 CTXCCOM_FORMATS] = .CTXCCOM_FORMATS] + 1; : 
: re 0519 4 KFT_PTR = KFTC.2,BASE_J; ! Pointer to key field entry ; 
3 436 03 0 4 DSUM = 0; : 
; 455 501 4 KSUM = 0; : 
; $26 0 ¢ ; IF ONEOF_(.CTXCCOM_SORT_TYPE], BMSK_(TYP_K_ADDRESS, TYP_K_INDEX)) : 
; 458 08 4 4 DSUM = RABSS_RFA; : 
; 459 0505 4 WHILE 1 DO : 
; 460 05 $ 2 BEGIN : 
> 461 05 LOCAL L; : 
3 186 0528 5 L = KFT Preto. KFT_NDE_SI2Z); ! Get length in bytes : 
; 46 0509 § IF_.KFT_PTRCO, KFT_BATAI ! Data or key? : 
3 464 0530 § rT : 
> 465 0531 6 BEGIN : 
> 466 P 05 Q $ IF NOT ONEOF_(.CTXCCOM SORT_TYPE) : 
> 467 053 BMSK_(TYP_K_ADDRESS, TYP~K_INDEX)) ; 
; 469 0535 BEGIN : 
; 470 0536 7 KFT _PTRCO, KFT_NDE_POS] = .DSUM; : 
> 471 0537 7 DSUM = .DSUM +7.L; : 
; 47 0938 7 : 
: 47 0539 6 ELSE : 
> 474 0540 6 KFT_PTRCO, KFT_BUILD] = FALSE; ; 
> 475 0541 6 : 
; 476 0348 5 ELSE : 
; 477 0543 6 : 
> 478 P 0544 6 IF NOT ONEOF_(.CTXCCOM SORT_TYPE) ; 
> 479 0545 7 BMSK_(TYP_K_ADDRESS, TYP~K_INDEX)) : 
; 480 0546 $ : 
> 481 0547 BEGIN : 
> 48 0548 7 KFT PTRLO, KFT_NDE_POS] = .KSUM; : 
> 48 0549 7 KSUM = .KSUM +7.L; : 
; 484 0550 7 : 
> 485 0551 $ : 
; 486 33¢ BEGIN : 
; 4 553 7 KFT _PTRCO, KFT_NDE_POS] = .DSUM; ; 
> 488 554 7 DSUM = .DSUM +~.L; : 
3; 489 555 END; ‘ 
: 491 55 WHILE .KFT_PTRCO,KFT_CONDX] DO ! 27? Were these ever verified? 3 
> 49 558 6 BEGIN ; 
; 49 559 6 KFT_PTR = KFT_PTRC1,BASE_); ; 
7 49% 560 6 KFT-PTRCO, KFT NDE _Pos = .KFT_PTRC-1, KFT_NDE_POS); ; 
> 495 561 6 IF NOT .KFT_PTRE=1, KFT_BUILDI : 
; 496 36¢ 6 : 
; 497 363 KFT_PTRCO, KFT_BUILD) = FALSE; : 
; 499 565 IF NOT .KFT_PTRCO,KFT_CONTINUE] THEN EXITLOOP; : 


F 10 
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; 66 5 KFT_PTR = KFT_PTRC1,BA 3 ; 
0} e Hae _PTRC1,BASE_J 
3 08 6 ? : Store the information for this RDT entry 3 
; 05 4 ? IRDTC.RDT_IX, field] = value; ! Currently, nothing to store : 
3 $0 74 ? | Update MAX_KSUM : 
3 298 0375 : if .KSUM GTR »-MAX_KSUM THEN MAX_KSUM = .KSUM; ; 
; 11 He é ! Update MAX_DSUM : 
i Be Httnsum Eo. : 
: 515 036) 4 MAX_DSUM = .DSUM ; 
: 218 beng 2 ie tA -DSUM LSS .MAX_DSUM : 
: 518 0584 4 CTXCCOM_VAR] = TRUE 
: 232 beaz ¢ td -DSUM GTR .MAX_DSUM : 
: 521 0887 BEGIN ; 
. s ; 0588 5 MAX_DSUM = .DSUM; 3 
. > 0589 5 CTXECOM_VAR}) = TRUE; ! Depends on sort process ; 
; 524 0590 END : 
3 See 0591 END; F 
: 358 0898 we 
3 2 ; Bane Store the Longest output record length, and total key size : 
; 385 0596 if .CTXCCOM_RDT_S1Z] GTR 0 ; 
Bo BE Me 2 
: 238 0599 ETXLCOM LL OUT]. = .MAX_DSUM; ! Longest output record Length 
> 534 0600 CTXCCOM_SPEC_TKS] = .MAX_KSUM; ! Total key size 

; 535 0601 END; 

; 536 b606 2 

3; 3a7 0605 1 END; 


03FC 00000 CALC_LRL_OUT: 
WORD 


o S e R2,R3,R4,R5,R6,R7,R8B,R9 4 

se 20 © 9000 SUBL2 a3 SP : 

5 110 CB 00 0000 MOVL : (cTx), RO ; 

04 AO 144 cB BB OOOA MOVW 32(CTX), 4¢(RO) 3 
50 108 CB OD 19 MOVL G4 (CTX), KFT_PTR : 

58 OFC (CB 9E 0001 V 2(CTX), RB : 

51 01 A A 1A MOVZBL 1<R8) I : 

0B 03 =A 03 f 1$: § #1, 3(KFT_PTR), 2% : 
04 Ad 1ST 4(KFT_PTRY : 

06 a0 0084 68 B A MOVW Fact 6(KFT_PTR) : 
5 C 28: ADDL2 #8, KFT_PTR : 


10 
SORSSPEC_FILE 18-5 -1986 00:51: AX-11 Bliss-32 V4.0-742 P 
yone008 eet ets Pan ey td oe hg Pe te — 
A 1 §% 3$: SOBGEQ I, 1$ F 
20 00 3 0 2¢ movcS #6, (SP), #0, #32, SEEN : 
4 D4 C CLRL = MAX_DSUM ; 
9 04 cLRL MAX~KSUM : 
50 68 eh 4 MOVZBL (R83, RDT_IX : 
51 50 06 C 46 5$: MULL #6 RDT_IX, R1 : 
1 0106 CB ¢ 4A ADDL2  260(CTXT, R : 
F1 61 f 4F LBC © (R1), 4$ : 
51 06 Al 9A 2 MOVZBL 4(R1S, 2 + 0487 
9 6 51 £2 BSS SEEN, 4$ : 488 
ome At See Gane Ug. tik 
51 0108 0B41 : 0960 MOVAQ  &264(CTX)(ZJ, KFT_PTR : 0519 
ae Be 
52 18000000 aF 58 i rs the ASHL BB (crn, #402653184, R2 : 0522 
6 0 0007 MOVL #6, D + 0524 
52 06 Al Re 007A 68: MOVZWL 6(KFT_PTR), L : 0528 
0D 03 Al 06 gi oo7e BBC 6, 3TKFT PTR), 7$ : 05¢9 
54 18000000 8F 58 A °8 a ASHL BgicTX), 9402653184, R4 ; 0533 
2A 11 000 BRB 10$ + 0540 
54 18000000 8F 58 AB 78 099 7$: ASHL BB (CTX), #402653184, R4 > 0545 
61 ; 88 90998 Bove SUM, (KFT_PTR) : 9548 
56 $ CO 009 ADDL2 : KSuM* + 0549 
g 11 000k BRB $ + 0544 
61 BO OOOA3 8S: MOVW  DSUM, (KFT_PTR) > 0553 
3 52 0 DO0A6 ADDL2 L DsuM : 0554 
12 03 Al 03 £1 O00A9 9S: C #3, 3(KFT_PTR), 11$ : 0557 
51 08 co BOA ADDL2 a FT_PTR 3; 0559 
61 F8 Al Be 0008 VW - (KFT PTR), (KFT_PTR) : 0560 
EF FB Al 04 F 0085 BBS #4, -STKFT_PTR), 9S : 0561 
03 «Al 19 BA OOBA 108: Bi cB2 #16, 3(KFT“PTR) ; 0363 
05 03 Al €9 8 5 11$: BLBC seKer PTR), 12$ : 0565 
1 08 9 00C4 ADDL2 #8, KFT_PTR : 0566 
e1 1 000C7 BRB 6 : 05¢5 
59 : D1 oc9 128:  CMPL KSUM, MAX_KSUM : 0575 
59 ; D6 gooce ROVE SUM, MAX_KSUM 
3 0 Si 138: TSTL  MAX_OSUM ~ : 0579 
03 1 D BNEG 14 ; 
57 p D MOVL § DSUM, MAX_DSUM : 0581 
D BRB 16$ ; 
57 ; D1 DA 148: CMPL Ds , MAX_DSUM > 0582 
DD BLSS si :" : 
s 53 BP RRHE, Bf, ax osu OE 
65 i £4 15$:  BISB2 8S tr5) ~ : 06 9 
02 F €7 16$:  SOBGEQ RDT_IX, 178 : 0477 
eM WA yy, BS : 
68 95 8 EF 18%: STB (RB) > 0596 


H 10 
SORSSPEC_FILE 16-Sep-1984 00:51: AX-11 Bliss-32 v4.0-742 Pp 16 S 
900.008 ease 13Be PBiFh:2) PAKS TE BL iss 32 ve Oerse ead | vO 
3 1 F BEQL 198 : 
008A (B B F MOVW § MAX_DSUM, \3accrx) : 0599 
—E AB 9 8 F MOVW = MAXKSUM, 94(CTX) : 06 
4 OOOFC 19S: RET 3 


; Routine Size: 253 bytes, Routine Base: SORSRO_CODE + 0258 


SS 


1 
“Sep-19 SORT32.SRCJSORSPEC.832;1 (5 


Spas erat tLe 15-500-19 : 90:31:19 orm Bliss-32 V4.0-742 Page 4 


COM_LENADR Routine to return length/address of record 
COM_SRL Shortest allowable input record length 
COM_LRL_INT Length of internal format record 


i IMPLICIT OUTPUTS: 


4 : GLOBAL ROUTINE SORSSSPEC_KEY_SUB: CAL_CTXREG = 
re $ hed 
43 69 i FUNCTIONAL DESCRIPTION: 
re ! Process key descriptions from the specification text. 
4 1 
rf 18 
49 14 
29 15 
2) 0617 
35 0319 CTX Longword pointing to work area (passed in COM_REG_CTX) 
55 0 The Pol touting fields of the context area are used as input: 
56 0621 COM_SORT TYPE Type of sort (TYP_K_RECORD, etc 
57 96 ¢ COM_NUM_FILES Number of input filés 
58 6 COM_LRL Longest seus record length (see below) 
59 88 4 COM_MINVFC Length of VFC area 
5 COM_COLLATE Col ay ing sequence information 
06 § COM_STABLE Flag indicating stable sort 
06 COM_VAR Flag indicating variable-length records 
be : COM_NO_DUPS Flag indicating to delete duplicate records 
0630 The botloving fields are used as input/output: 
0631 COM_COMPARE Comparison routine 
ge ; COM_EQUAL Equal-key routine 
COM_TK Total key size (hack hack) 
Be ; COM_SPEC_TKS Total key size, due to record reformatting 
+9 The wae: fields are used as output: 
O63 COM_INPUT Routine to do input conversion of records 
i 
06 
06 


at 


i NONE 

i ROUTINE VALUE: 

i Status code. 
i SIDE EFFECTS: 

i NONE 


NOUSWN O00 


BEGIN 

EXTERNAL REGISTER 

CTX = COM-REG_CTX: REF BLOCKECTX _K SIZE) 
ons FIELD(CTX.FIECDS); 


RDT = CTXCCOM_RDT_ADR]: REF ROT_TABL], ! Record definition table 


RE. QROMPORIN St SS Ss ee er ee ns nn a nn a nn nn A a ni a 


Be Se Se Se Se Se Se Se Se Ge Be Se Se Ge Ge Se Se Se Se Se Se Se Se Ge FH Se Se Se Ge Ge Se Se Se Se Se Se Se Se Ge Ge SH Se FHS Se Se Se Se Se ee Ge Se Se Se Seeee 
POPUP DPV PVP DV DV DV DV DVLVDVDIUDVIVLUSIULTSVSTDUSVSIVSVSVST SUSU SSIS SUSI SIS STOSISTIOT 


SRISLSSELEALAV AS SHVSARAN AS SSHIETRERLS 


© CONOUEWN—O0O@ 


i 
i 
i 
; 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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SORSSPEC_FILE 18-5 ep-1984 AX-11_ Bliss-32 V4.0-742 Page 18 
y0e e008 ete aets Pan See PUD Oe bg Pe er 9 65) v0 
; 1 KFT = CTXCCOM_KFT_ADR]: REF KFT_TABL], ! field table ; 
; 38 eee FDOT = ETHEEOR-FDT-ADR} REF FDTCTABES: if Field detinit i. table : 
: a8 27 CFT = CTXLCOM_CFT_ADRJ: REF CFT_TABLJ; ! Constant definition table : 
; 600 5 BIND : 
; 601 : £1 = PLITB ; 
; 60¢ PC_PUSHL, M_BD+COM_REG_CTX, %FIELDEXPAND(COM_CTXADR) *ZUPVAL, ; 
; 60 8 OPC“PUSHAB, M~BD+ OM-REG_SRCE, OFF _LEN, : 
: 604 66 OPC"PUSHAB, M~BD+COM-REG-SRC1. OFF "LEN, : 
; 605 0 OPC" PUSHAB, M~BD+COM~REG_SRC2, OF F“ADR. : 
: 606 71 OPC"PUSHAB, M_BD+COM-REG-SRC1, OFF-ADR, : 
; 60 re OPC“CALLS, 5, M_AID+R_PCY: VECTOR, : 
; 608 7 VE2 = PCIT BYfE< ; 
; 609 674 OPC_BLBC, M_R+R_O, 1, : 
; 610 0675 SB, 3 
; 611 0676 OPC"PUSHL, M_R+R_0, ; 
; 61g 67 OPC“PUSHL, 3 
: 61 0678 OPC"PUSHL, " “AI+R_PC, LONG(SOR$_RTNERROR), i 
3 614 0679 OPC“CALLS M_ATD+R_PC): VECTOR, 3 
: 615 0680 UE3 = PCIT BYT ? F 
3; 616 0681 OPC_MOVL, SSS$_NORMAL, M_R+R_0, 3 
; 617 ee OPC"RSB): VECTOR, 3 
: 618 068 ves = PCIT BYTE : 
: 619 0684 OPC “BLBC, M_R+R_0, 1 : 
; 620 0685 oP $ 
: 621 068 OPC"MOVL, 1 ; 
: 6 é 068 OPC" CMPL .M_ DetOn ne. SRC1,OFF_STAB,M_BD+COM_REG_SRC2,OFF_STAB, 3 
; 6 0688 OPC"BGTR U, 3 
; 624 0689 OPC" SBwC, R+R_0, : 
: 65 9690 OPC-RSB) : hectoR’ ; 
: 627 069 ROUTINE APPEND(LEN, ADR): CAL_CTXREG NOVALUE = : 
; 628 069 BEGIN 3 
: 629 0694 EXTERNAL REGISTER : 
; 630 0695 CTX = COM_REG_CTX: REF BLOCKCCTX_K SIZE) ; 
> 631 0696 FIELD(CTX_ FIECDS): 3 
5 O36 069 BIND : 
: 63 0698 XCODE = CTXCCOM_ROUTINES]: VECTORC2); ; 
: 634 5344 OCAL 3 
; 635 0700 D ‘ cooltils once); 3 
: 636 0701 DELTA } = i 3 
: 637 0708 DELTA 1 = SORSSALLOCATEC bécrat £01); : 
: 638 070 CHSMOVE(.LEN, .ADR, CHS xcope CO] J, .XCODEC1], .DELTAL1))); : 
: 639 97 SORSSD FALLOCATEC. AE SELON. eredoe {1)); ; 
3; 640 705 a2 ELTA 3 
: 641 07 XCODE 1 DELTA 1 : 
3 642 07 END; ; 
07 AA 9F 0S AD OF OS AA OF 00 20 00 15° an’ be 00333 P.AAC: “AVTE °35, -85. 21. 0, 3 “86, 5, -97 : ; 

oe a oa PL 7 

6E -BLKB 1 
of :BLKB : 
00000005 1 “LONG : 


Sons Sha cef ILE 


09 03 1A 00 AA 00 AD DI 50 01 DO OS 01 


; Routine Size: 


ISSSSSS5 


DONO UE WN O OONOULSW 


PAGAAAAAAO 
DAMA MVIVIVIV 


3 


SOooooooooooooooooooeoo 


SSN NNN NNN 


PROPOPORONONONINUNY 2 OO 


DONAUES WN O OONOUS WN OOO 


ooo 


WN 


K 10 
16-Sep-1984 00:51: AX-11 Bliss-32 V4.0-742 
12-808=138e 90:34:29 SORT32.SRCJSORSPEC.B32;1 
DD 00 DD 50 DD 0S 01 50 €9 75 P.AAD: .BYTE -23, 80, 1, 5, -35, 80, -35, 0, -35, -11 
ootcetgA 7F “LONG igesgre . . 
9 O03 FB 3 -BYTE <5, 3, -97 
“BLKB 1 
-BLKB 
00000001 9 LONG 
05 50 01 p D P.AAE: <BYTE <-48, 1, 80, 5 
000000 0 l “LONG = 5 
05 1 003A4 -86, 0, 26, 3. -39. 1, 
O3A7 ~BLKB 2 
VE1= P.AAC 
UE2= P- AAD 
UE3= P. AAE 
UE4= P.AAF 
0076 00000 APPEND: .WORD Save R2,R3,R4,R5,R6 
5E 04 C 00002 SUBL2 #4, SP 
56 18 AB 9E 0000 MOV 24(CTX), R6 
66 04 ac C1 00009 ADDL3 LEN, (R6), DELTA 
E DD 00005 PUSHL 
000000006 00 1 FB 0001 CALLS #1, SORSSALLOCATE 
04 AE 0 pO 00017 MOVL 0; DELTA+ 
04 86 x3 38 0001B MOVC (R6), @4(R6), @DELTA+4 
08 BC 04 AC 28 90021 MOVC3 LEN, @ADR, (R3) 
04 Abd 9F 00027 PUSHAB 4(R6) 
66 DD 0002A PUSHL  (R6) 
000000006 00 02 FB 900¢¢ CALLS #2, SORSSDEALLOCATE 
66 6€ 7D 000 MOVG DELTA, (R6) 
04 00036 RET 


Routine Base: SORSRO_CODE + O03A9 
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OCAL 
ADJ_EQUAL 
ADJ~ COMPARE; 


! Determine the longest output record length, COM_LRL_OUT. 
i This also calculates COM_SPEC_TKS and ( M_FORMATS. 
CALC_LRL_OUT(); 


' See if we can use SORSSKEY_SUB to generate the key comparison routines. 
! We can do this if: 

! There is only one record format, 

! There are no congitionat keys, and 

! The data is simply the entire record (and not less than the LRL). 


-47, -87, 0, - 


roe 8 


SORSSPEC FILE 1$-$e0-1984 00:57:10 YAXatt BLiege32 v4.0-742. Page (20 


IF NOT .KFT_PTRCO,KFT_CONTINUE) 


N 
IF TESTBITCC(HAVE pat) THEN LEAVE LAB; 
KFT_PTR = KFT_PTRC1,BASE 


END? 
RETURN SORSSKEY. SUB (KEY pone _); 


END; 
e 


SSN O 
MEW OOO 


: If we don't have the data, don't call user-written routines. 
iF gC TXCCOM_SORT_TYPE] NEQ TYP_K_RECORD 


be ut ts 


> 664 729 ; ' 

: 665 730 BEGIN LABEL LAB; LAB 

: 6 731 4 BEGIN 

: 66 7 j 4 BUILTIN 

: 668 733 4 TESTBITSS, 

: 669 734 4 TESTBITCC: 

: 670 735 4 LOCAL 

: 671 7 6 4 HAVE_DATA, 

> 67 737 4 KEY_BUFF : KEY_BLOCK 

; 673 07 § 4 KFT-PTR: REF “KFT_TABL); ! Local pointer to KFT table 
; 679 9740 4 IF .CTXCCOM_FORMATS] NEQ 1 THEN LEAVE LAB; 

: 677 074g 4 KFT PTR = KFTCO,BASE_J; 

: 678 0743 4 HAVE_DATA = FAL 

: 679 0744 4 KEY_BUFFCKEY -NUMBER 1=0; ! No keys yet 
: 680 0745 4 DECR I FRON TCTXCCOM_KFT.S1Z]-1 TO 0 DO 

: 68 0747 2 IF RFT _PTRCO.KFT_Cc JA) THEN LEAVE LAB; 

; 683 0748 3 IF KFT. PTRLO.KFT-DATAJ 

: 685 0750 6 BEG! 

> 686 0751 6 IF .KFT_PTRCO,KFT_CONSTANT] THEN LEAVE LAB; 

: 687 O73 é IF TESTBITSS(HAVE-DATA) THEN LEAVE LAB; 

: 688 0753 6 IF .KFT -PTREO.KET- NDE_POS] NEQ 0 THEN LEAV 

: 689 0754 6 IF .KFTIPTRCO,KFT-NDE-SIZ) LSS .CTXCCOM_ ORE Ltin LEAVE LAB; 
: 690 0755 6 END 

: $33 o738 2 ELSE GIN 

: 69 0758 6 LOCAL 

: 694 0759 6 FDT_PTR:REF FDT_TABL1), 

: 695 0760 6 KBF? REF KBF BLOCK; 

: 696 0761 6 KBF = KEY _BUFFCKEY _RBF(.KEY_BUFFCKEY_NUMBER])]; 
: 697 076¢ 6 FDT_PTR ="FDTC.KFT_PTRCO,KFT_FDT IDX7,BASE_J; 

; 698 0763 6 KBF KBF TYPE] | : .FOT_PTREO,FOT_TYPEJ; 

: 699 0764 6 KBFCKBF-LENGTH] =  .FOT-PTRCO.FOT-FLD_SiZ); 

: 700 0765 6 KBF KBE F-POSITION = -FOT-PTRCO.FDT-FLD POS]: 

: 701 0766 6 KBF CK F FORDE *KFT-PTRLO, KFT DESCEND): 

: 70 076 : KEY. BUFF KEY_NUMBER] = .REY_BUFFCKEY_NUMBER) + 1; 
: 3 2 

3 07 

: 07 2 

; 4 

: 773 4 

: 0774 4 

3 : 


SSNs 


EGIN 
Hands” HECOR, COMPARE NEQ 0 OR .CTXCCOM_EQUAL) NEQ 0 


™ 
owe 
o 
~ 
“ 


m 10 
vou-005'~ eSep=19be W3:t0:9) — ESORTs2esnedsoRsPEC esos ty 


: 721 7 $ RETURN SORSSERROR(SORS_BAD_TYPE); 
2 ¢ 7 ND; 

3 £ 788 

: ose 18 ADJ_EQUAL = FALSE 

° » = . 

 ¥ g 7 ° ADJ“COMPARE = FALSE; 

: ost 138 

; 4 , ree If the user specified his own equal-key routine, call it. 
: 731 196 BEGIN 

: 7 : 79 SWITCHES UNAMES; 

ee 79% IF .CTXCCOM_EQUAL] NEQ 0 

: 7 0799 THEN 

: 735 0800 4 BEGIN 

: 736 0801 4 LOCAL 

; 737 80¢ 4 TMP; 

: 738 0803 4 TMP = .DSC LEN; 

: 739 0804 4 APPEND(.UETE-1) EI): 

: 740 0805 4 APPEND (ZUPVAL, _CTXCCOM_EQUAL)); 

> 741 0806 4 PEND(.UE2C-1), UE2); 

: 74 0807 4 APPEND (ZUPVAL, SREF (SORSSERROR)); 

> 74 0808 4 APPEND(.UE3(-1], UE3); 

: 744 0809 4 CTXCCOM EQUAL] = .TMP: 

: 745 0810 4 ADJ_EQUAL = TRUE; 

> 746 0811 4 

: 747 OBi¢ ; ELIF .CTXCCOM_NODUPS) 

: 748 081 THEN 

: 749 0814 4 BEGIN 

: 750 0815 4 ROUTINE NODUPS: JSB_EQUAL = SOR$_DELETE2; 


50 001€8111 8F 00 00000 ;NODUPS 
U.1: MOVL #1868049, RO ; 0815 
05 00007 RSB 3 
; Routine Size: 8 bytes, Routine Base: SORSRO_CODE + 03E0 


; 751 0816 4 CTXCCOM_EQUAL] = NODUPS; 

; Pg tes 4 END 

; & 18 3 ELSE 

aa at toe 

: 756 0831 4 i Leave COM_EQUAL equal to 0 
3 for ; 4 : 

. ne 

; 760 B56 END; 

BR 

; oe? 8 Store the address of the length/address routine 
: 765 B86 BEGIN 


SN i a mo ae 
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SORSSPEC_FILE 16-Sep-1984 00:51:1 AX-11 Bliss-32 V4.0-742 2 2 
y0a2000 1ereee= Ths PSiFb:? — aMA TL Bk isgc3e ve 205782. age $6 


: 76 831 ; ROUTINE LENADR(S: REF VECTORC,BYTEJ; LEN, ADR): JSB_LENADR NOVALUE = 
: 768 : : 4 LEN = .(SCOFF LENJ)<0,16,0>; 

: 769 4 4 ADR = SCOFF_ADRJ; 

: 770 835 3 END; 


8A or 00000 LENADR: PUSHAL (R10)+ ; 0831 

50 01 AA f 00002 MOVZWL 1(S), LEN + 0833 

A 3 ¢ 0 ADDL2 #3, ADR + 0834 

51 A 00 00009 MOVL R16, R1 : 0835 
SA BE DO 0000C MOVL  (SPS+, R10 : 
05 OO00F RSB ; 


; Routine Size: 16 bytes, Routine Base: SORSRO_CODE + 03E8 


3; 771 0836 3 CTXCCOM_LENADR] = LENADR; 

; ore 0837 END; 

ae as 0838 

3 774 0839 

3 oP? ret If the user supplied a comparison routine, call it. 

. ire bare 2 IF .CTXCCOM_COMPARE] NEQ 0 

; 778 084 ; THEN 

: 779 0844 BEGIN 

; 780 0845 LOCAL 

3; «6781 0846 . 

: 78 0847 TMP = .DSC LEN; 

: 78 0848 APPEND(.UETC-14, UE1); 

3: 784 0849 APPEND (ZUPVAL, CTXCCOM_COMPARE])); 

> 785 0850 APPEND ( .UEGE-11 UES); 

: 786 0851 XCCOM COMPARES = .TMP; 

> 787 0852 3 ADJ_COMPARE = TRUE; 

: 788 0853 3 END 

3; 789 0854 § 

; 790 0855 BEGIN 

; 791 0856 CTXCCOM_COMPARE] = COMPARE; 

; 79 0857 END; 

; 79 0858 f ; 

; re + #4 Store the address of the input reformatting routine | 
: 796 0861 CTXCCOM_INPUT) = INPUT; 

3; 797 bb6¢ 

; 798 Bae 5 

; 799 8 64 ' Store the length of an internal-format record 

: 800 865 ! 

: 801 866 BEGIN | 
; 80 86 LOCAL TMP; 
; 80 868 CTXCCOM_LRL_INT] = TMP = 
3: 804 yh OF F- ADR” + ' Offset to start of the data 
: 805 0 oCTRECOM_LRL OUT] + ! The data 

3; 806 871 .CTXCCOM- SPEC_TKS); ' The keys 

; 807 0872 If . TMP GTR MAX_REFSIZE 
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fo 
oo 
co 
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(C0 C9 Cd 0d CD 09 Co 09 OD On C0 0D 09 C0 CD CD CD CD CD CD OD 09 C0 09 09 OD CD CD: 
0 09 09 C0 CD C0 00 09 00 Co C0 C9 C9 CD OD CD CD. CD CD 
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0000000000 
SPrWuw 


1984 00:51:41 AX=11 Bliss-32 V4.0-742 
71382 99770589 SORT32.SRCIJSORSPEC .B32;1 


THEN 
8 eR SE ! Not really bad logic, just rare. 


Adjust the actual addresses of the comparison and equal-key routines 

if eADJ_EQUAL THEN CTXCCOM_EQUAL] _ = .DSC_ADR + .CTXCCOM_EQUAL]; 

IF .ADJ COMPARE THEN CTXLCOM_COMPARE] = .DSC_ADR + .CTX COM~ COMPARE]; 

! Loop through the key field table, adjusting the positions of the fields 
within the internal’ format node. ° : 


DECR 2 FROM .CTXCCOM_KFT_SIZJ-1 TO 0 DO 
BEGIN 


L 
KFT_PTR: REF KFT_TABC); 
KFT_PTR = KFTC.2,BASE_J; 
IF TKFT_PTRCO, KFT_DATAS 


N 
KFT_PTRCO, KFT_NDE_POS] = .KFT_PTRCO, KFT_NDE_POS] 
+ OFF ADR 


Local pointer to KFT table 
Pointer to key field entry 


F 
NOT ONEOF_(.CTXCCOM_SORT_TYPE], 
BMSK_TTYP_K_ADDRESS, TYP_K_INDEX)) 


N 
KFT_PTRCO, KFT_NDE_POS] = .KFT_PTRCO, KFT_NDE_POS) 
+ OFF_ADR + .CTXCCOM_LRL_OOTI 


KFT_PTRCO, KFT_NDE_POS] = .KFT_PTRCO, KFT_NDE_POS] 
+ OFF_ADR 
END; 
RETURN TRUE; 
END; 


O7FC 00000 .ENTRY SORSSSPEC_KEY_SUB, Save R2,R3.R4.R5,R6,R7,- 
SA ac AF 9E 902 MOVAB APPEND, R10 
SE F800 «CE «(9E 000 MOVAB -2048(5P), SP 
59 0108 (B 9E 00 MOVAB 64 (CTX), R9 
58 0110 (¢B 9E 01 MOVAB 2(CTX). RB 
57 18 AB 9E 0001 MOVAB 24(CTX), R7 
56 1¢ AB 9E 00019 OVAB 28(CTX), R6 
FEAF cA 00 FB 0001 CALLS #0 CALE_LRL_OUT 
1 0083 cB 91 99 CMPB «SA CCTX)T #1 
? if} 0 BNEQ 63 
50 9 D 00 9 MOVL  (R9), KFT_PTR 
5 D4 C CLRL ——- HAVE DATA 
04 AE Bs 0 F LRW Key Bur F 
54 OOFD cB A 000 MOVZBL : 3TCTX), | 
11 000 $ 


epee 


SORSSPEC_FILE 16-5 Sep-1984 00:51:10 AX-11 Bliss-32 V4.0-742 
yous000 1 ~3ep-1984 90:20 :10 Uf SORT32. SRCISORSPEC.B32¢1 
4 03 AO 9E 00038 1S: MOVAB 3(KFT_PTR), R3 
59 é £6 xc BBS #3, (R3), 6$ 
16 é 6 E 4 BBC #6, (R3), 2$ 
51 : is. 44 BBS #1, (R3); 
4D § 0 E2 00048 BBSS § #0, HAVE DATA, 6$ 
60 8B O4¢ TSTW (KFT_PTRY 
49 12 00 4 BNEQ 6$ 
0084 CB 06 AO B1 0005 CMPW (KFT PTR), 132(CTX) 
¢9 1E 0096 BGEQU 3$ 
F 11 0005 BRB é$ 
51 04 AE 3¢ 005A 2$ MOVZWL KEY_BUFF, R1 
21 06 AEG] 7E 0055 MOVAQ KEY-BUFF+2CR1), KBF 
2 4 AO 9A 0006 MOVZBL 4(KFT_PTR), 
52 06 C4 00067 ULL2 #6, R2 
52 68 CO 0006A ADDL2 (RS), FDT_PT 
61 og 9B 0006D MOVZBW (FDT_PTR), (KBF) 
06 Al 02 A2 dO 00070 MOVL 2(FDT_PTRS, 4(KBF) 
52 63 01 93 EF 00075 EXTZv #5, #T, (RS), 
02. Al 2 BO 0007A MOVW  R2, 2(KBF) 
04 AF B6 0007E INCW KEY_BUFF 
04 63 £8 00081 3$: BLBS (R33, 4$ 
11 55 00 €5 00084 BBCC. #0, HAVE_DATA, 6$ 
50 08 CO 00088 4s: ADDL2 #8, KFT_PTR 
AA 54 F4 00088 5S: SOBGEQ I, 1$ 
04 AE 9F OO08E PUSHAB KEY_BUFF 
000000006 00 01 FB 00091 CALLS #1, SORSSKEY_ SUB 
04 00098 RET 
01 58 AB 91 00099 6$: CMPB = BBC CTX), #1 
17 13 0009D BEQL ©-8$ 
6B D5 0009F TSTL (CTX) 
05 12 OO0A1 BNEQ 86 7$ 
04 AB DS D00AS TSTL  4(CTX) 
OE 13 000A BEQL 8$ 
001C806C 8F DD OO0AB 7$ PUSHL #186788 
000000006 00 01 FB OOOA CALLS #1, SORSSERROR 
04 0008 RET 
54 D4 00086 8S CLRL § ADJ_EQUAL 
52 D4 00088 CLRL ADJ” COMPARE 
04 AB D3 OOOBA TSTL  4(CTX 
43 13 000BD BEQL ©: 9$ 
53 66 00 0008F MOVL = (R6), TMP 
FES CF 9F 000C2 PUSHAB UE1 
FE9 CF DD 000C6 PUSHL UE1=4 
6A 02 FB ts CALLS e APPEND 
04 AB OF CD PUSHAB 4(CTX) 
04 DD 00000 PUSHL 
6A 02 FB B80 8 CALLS #2, APPEND 
FEAG CF OF 990 PUSHAB UE 
FE9C CF DD 00009 PUSHL - 
6A 93 FB 000D CALLS #2, APPEND 
6E 000000006 g 9E OE OVAB  SORSSERROR, (SP) 
E DD O00E PUSHL SP 
04 DD 000E9 PUSHL #4 
6A 2 FB EB CALLS #2, APPEND 
FEA3 CF 9F OOOE PUSHAB UE 
FE9B cf DD OO0F PUSHL UE -4 
6A 2 FB OOOF CALLS #2, APPEND 


See Se Se Se Ge Se Se Se Se Se Ge Se Se Se Fe Se Se Ge Se Se Se Se Se Se Se Be Se Se Se Se Se Ge Se Se Se Be Ge Se Fe Fe Fe Fe Se Fe Be Be Fe Se Fe Fe Se Se Se Se Fe Se 


dD 11 
SORSSPEC_FILE 16-Sep-1984 00:51: AX-11 Bliss-32 V4.0-742 Page 25) 
yoee800 12-808- 1382 9 3:89 SORT32.SRCISORSPEC.B32;1 . (33 
04 AB 3D oF9 MOVL TMP, 4(CTX) : 0809 : 
54 H 9 OF Beet W\¢ ADJ_EQUAL 3 310 : 
05 5B AB 5 £1 00102 9$: BBC i 91(CTX), 10$ : B13 ; 
04 AB 37 AA 9E 001 MOVAB NODUPS, 4(CTX) + 0816 ; 
10 AB FAA 10C 10$: | MOVAB  LENADR. 16(CTX) ; 0856 : 
$8 D5 0011 TSTL © (CTX) + 084 ; 
1 11 BEQL 11$ : : 
53 66 p 11 MOVL  (R6), TMP + 0847 : 
FEGS CF 9F 0011 PUSHAB UE1 + 0848 ; 
FE3D CF DD 0011 PUSHL UE I~ : ; 
6A 92 FB 001 CALLS #2, APPEND : : 
B DD 001 PUSHL (CTX + 0849 : 
04 DD 001 PUSHL 4&4 : : 
6A 02 FB 00127 CALLS #2, APPEND s : 
FEOF CF 9F OO12A PUSHAB UE4 + 0850 ; 
FE67 F DD 001 PUSHL a 3 ‘ 
6A ¢ FB 001 CALLS # APPEND : a 
6B D0 001 MOVL TMP, (CTX) : 0851 ; 
52 01 00 00138 MOVL #1, ADJ_COMPARE ; 0852 : 
05 11 00138 BRB 12§ + 0842 : 
6B 0000V CF 9E 0013D 11$ MOVAB COMPARE, (CTX) : 0856 3 
08 a8 O000v CF 9E 00142 12$ MOVAB INPUT, &(CTX) + 0861 : 
5 0088 cB E 0014 OVAB 136(CTX), R3 : 0868 : 
50 02 A3 3C 00140 MOVZWL 2(R3), RO : 0871 : 
51 SE AB 3C 00151 MOVZWL 94(CTX), R1 : : 
50 51 CO 00155 ADDL2. RI, ; : 
50 07 CO 00158 ADDL2 #7. TMP + 0870 : 
63 50 BO 00158 MOVW TMP, (R3) : 0868 : 
QOOOFFFF  8F 50 01 00158 CMPL TMP. #65535 + 0872 : 
Op 15 0016 BLEG ; 3 
001€1124 8F DD 00167 PUSHL #1839396 > 0874 : 
000000006 00 oi FB 0016p CALLS #1, SORSSERROR : ; 
04 4 €9 00174 13$:  BLBC  ADJ_EQUAL, 14$ > 0880 ; 
04 AB 67 ¢O 00177 ADDL2 (R73, 4(CTX) : : 
0 52 €9.0017B 14$:  BLBC ADJ COMPARE, 15$ > 0881 : 
68 67 C0 0017 ADDL2 (R73, (CTX) : ; 
51 OOFD cB 9A 00181 15$: MOVZBL 253(€TX), 2 : 0887 : 
28 11 00186 BRB 18$ ; : 
50 00 8941 7E 00188 16$: MOVAQ @0(R9)CZ), KFT_PTR > 0891 
1B 03 AO 06 EO 0180 BBS #6, 3(KFT PTR) + 0892 
52 18000000 &F 58 AB 019 ASHL  88(CTX), #402653184, R2 : 0898 
10 19 00198 iss 17$ ; 
52 6 3 9190 MOVZWL (KFT_PTR), R2 > 0901 
4 02 =A ¢ 1A0 MOVZWL 2(R3J, R4 F 
32 54 CO O01A4 ADDL R4, Re : 
60 7 Ai OO1A7 ADDW #7, Re, (KFT_PTR) : 
3 11 OO1AB BRB 13s : 0900 
60 7 AO OO1AD 17$ ADD #7, (KFT_PTR) : 0904 
D5 1 £4 0180 18$ SOBGEQ 72, 16$ : 089 
50 01 DO 0018 MOV ai, RO : 090 
04 00186 RET > 0908 
; Routine Size: 439 bytes, Routine Base: SORSRO_CODE + 03F8 
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11 
1B-Se0-1984 00:57:10 Yaret] BL ieg=2 v4. 0-742. 


ROUTINE ‘has 
INPREC: REF V 


E 
OUTREC: REF VE 
): JSBLINPUT = 


CTOR ! Length/address of input record 
CTOR 


2], 
ite ! Area for reformatted output record 


+ 
+ 


FUNCTIONAL DESCRIPTION: 

Reformat an input record. 
FORMAL PARAMETERS: 

As described above 
IMPLICIT INPUTS: 

CTX Longword pointing to work area (passed in COM_REG_CTX) 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

False iff the record should be dropped from the sort, true otherwise. 
SIDE EFFECTS: 


NONE 
BEGIN 
EXTERNAL REGISTER 
CTX = COM_REG_CTX: REF BLOCKCCTX_K_SIZEJ 
FIELD(CTX_FIECDS); 
REGISTER 
CA = COM_REG_CTX; 
BIND 
RDT = CTXCCOM_RDT_ADR]: REF RDT_TABL], ! Record definition table 
KFT = CTXCCOM_KFT_ADRJ: REF KFT_TABL], ! Key field table 
FDOT = CTXCCOM_FDT_ADRJ: REF FOT_TABLJ, ! Field definition table 
CFT = CTXCCOM_CFT_ADRJ: REF CFT_TABLJ; ! Constant definition table 
EXTERNAL ROUTINE 
$RDT: CTXREG, 


DT: CAL_ 
SORSSREFORM: § CAL~CTXREG: 


LOCAL 
RDTPTR: REF RDT_TAB, 


Determine the record type 
2 = SORSSRDT( INPRECCOJ, RDTPTR ); 


) SORT32.SRCJSORSPEC .B32;1 
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SORS SO RCAF ILE ] ~300n 138% 9 34:19 yan Bliss-32 V4.0-742 Page fs 


; 90 966 SELECTONE .2 OF 

; 90 96 FT 

; 904 ac8 3: RETURN FALSE; ! omit the record 

; 905 96 13: BEGIN 

; 206 970 KFT_IX = .RDTPTRCO, RDT_KFT_IDX); 

; 90 971 1 = SORSSREFORN( INPRECTOJ, KFTC.KFT_IX,BASE_J, 
; 908 97¢ OUTRECLOJ, OUTRECCOFF LENJ); 

; 909 97 IF .2 NEQ 1 THEN (SORSSERROR(.Z5; RETURN FALSE); 
: 910 0974 END; 

> 911 0975 COTHERWISE): 

: g1¢ 0976 (SORSSERROR(.2); RETURN FALSE); 

> 91 097 TES; 

: 914 978 

: 915 097 (OUTRECCOFF_FMTJ)<0,8,0> = .KFT_IX; 

: 916 0980 

: 917 0961 IF NOT 5 STXCCOM STABLE] 

; 918 98¢ THEN (OUTRECLOFF STABJ)<0,32,0> = 0 

: 919 098 ELIF .CTXCCOM MERGE) 

: 920 0984 THEN (OUTREC OFF STAB) <0, 32.09 = .CTXCCOM_MRG_STREAM] 

; $8 0985 ELSE (OUTRECCOFF-STABJ)<0,32,0> = .CTXCCOM_INP_RECNUMJ; 

; 9 4 0987 5 IF ONEOF_(.CTXCCOM_SORT_TYPE], BMSK_(TYP_K_ADDRESS, TYP_K_INDEX)) 
> 924 0988 THEN 

: 925 0989 BEGIN 

; 926 0990 CHSMOVE ( 

: 927 0991 RABSS_RFA, 

: 928 0992 3 BLOCKED. CTXCCOM_INP_CURR],DDB_RAB+RABSW_RFA; ,BYTE), 
: 99 0993 3 OUTRECCOFF_ADRI); 

; 9350 0994 END; 

: 931 0995 

: 932 0996 RETURN TRUE; 

: 93 0997 

3 934 0998 #1 END: 


-EXTRN SORSSRDT, SORSSREFORM 


5E 04 C2 00000 INPUT: SUBL2 SP > 0909 
5 0108 CB 9E 99005 OVAB 264(CTX), R3 ; 0950 
4200 8F BB 00008 PUSHR #*M<R9,SP> > 0965 
000000006 00 98 i a CALLS #2, SORSSRDT pe 
4 13 0001 BEQL a : 
01 85 D1 $01 CMPL i #1 + 0969 
iE if OO1A BNEQ a ; 
51 bE p O1C MOVL RDTPTR, R1 : 0970 
52 4 Al 9A OOOTF MOVZBL 4(R1), KFT_IX : 
5 AA 0 3 PUSHAB 5 (OUTREC) ; 0972 
00 8342 rt 0 : PUSHAQ SOURS) CKFT_1X] : 0971 
000000006 00 4 i 28 CALLS #4, SORSSREFORM ; tte 
; BEQ Se : 
pd 00 A 1$ PUSHL 7 : 0976 
000000006 00 1 FB C CALLS #1, SORSSERROR ; 


Sorsshacer Le 


; Routine Size: 
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(CTX), COUTREC) 


TX), (COUTREC) 
», #402653184, RO 


C 

TX 

(CTX) RO 

36(RO), 7(OUTREC) 
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SORSSPEC_F 16-Sep-1984 00:51: AX-11 Bliss-32 V4.0-742 P 9 SQ 
voeso08 = oe eae Pan eS PO ag Py Pera age 5 vo 
3 3 9998 } ROUTINE ee 
: 9 1 1 REC1: REF VECTORE BYTE ! Address of internal format record 
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: 343 06 i FUNCTIONAL DESCRIPTION: 
: 945 1008 Compare records. 
: s7 isn? | FORMAL PARAMETERS: 
: 3e8 Isi¢ } As described above 
: 991 1014 { IMPLICIT INPUTS: 
: 958 1918 : CTX Longword pointing to work area (passed in COM_REG_CTX) 
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; 328 1019 1! 
hoe wae 
: 959 10 ; ROUTINE VALUE: 
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3 7 \3 § : 1 if the first record collates after the second record 
: 965 1028 1 | SIDE EFFECTS: 
: 966 1029 1! 
3; 967 1030 1! NONE 
: 369 1982 1 i 
: 970 1938 BEGIN 
3; 971 1034 EXTERNAL REGISTER 
:; 97 1035 CTX = COM_REG_CTX: REF BLOCKCCTX_K_SIZE] 
; aft 1936 ain FIELD(CTX_FIECDS); 
: 975 1038 RDT = CTXCCOM_RDT_ADR]: REF RDT_TAB }° ! Record definition table 
; 976 1039 KFT = CTXCCOM“KFT-ADR]: REF KFT-TABLJ. | Key field table 
; 977 1040 FDOT = CTXCCOM_FDT_ADR): REF FOT_TAB 3: ! Field definition table 
3 3f8 98 CFT = CTXCCOM_CFT_ADRJ: REF CFT_TABLJ; ! Constant definition table 
: 980 1808 EXTERNAL ROUTINE 
3 382 | SORSSCOMPARE : CAL_CTXREG; ! aka CA_LINKAGE 
: 9 1 LOCAL 
; obs 1029 KFT1: REF KFT_TAB, 
: + 1968 KFT2: REF KFT_TAB, 
; 9 104 EOK1, 
: 987 1050 EOK2, 
; 43 108¢ S; 
: 990 1 ° KFT = Ah 53h) 4 ito BASE_J; ! Get Ist record's KFT p 
; 991 1054 erie = KFTC.REC2COFF_FMTJ, BASE_J; ! Get 2nd record's KFT pointer 
; 992 1055 EOK1 = FALSE; 
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EOQK2 = FALSE; 
While there are more keys 
WHILE TRUE DO 


asa) 
FLDI: VECTORES). ! Length/address of field or constant 
Pubes VECTOR(2), ! Length/address of field or constant 
TYP2, 
FDT_Ix; ! Index into FDOT (or CFT) table 


Advance both pointers to the next key description 
WHILE 1 D0 
BEGIN 


1 
IF NOT .KFT1CO,KFT_CONDX) THEN 
IF NOT .KFT1 O.KET-DATAI THEN EXITLOOP; 
IF NOT .KFTICO,KFT-CONTINUE] THEN (EOK1 = TRUE; EXITLOOP); 
KFT] = KFTIL1,BASE_J; 
END; 
WHILE 1 DO 
BEGIN 
IF NOT .KFT2CO,KFT_CONDX] THEN 
IF NOT .KFTOCO.KFT-DATA] THEN EXITLOOP; 
IF NOT .KFTOCO.KFT-CONTINUE) THEN (EOK2 = TRUE; EXITLOOP); 
KFT2 = KFT2C1,BASE_J; 


The one that runs out of keys first collates less 


if (S = .EOK2 - .£0K1) NEQ 0 THEN RETURN .S; 
IF .E0K1 THEN EXITLOOP; 


Zz: ' Unspecified 
KFT_NDE_SIZJ 


ELSE 


! 
1 = .FDTC.FDT_IX, FDT_TYPE); 
give EQL DSCSK_OTYPE-P 


FLDI1CO) = .FDTC.FDT_IX, FOT_FLO_SIZ) 
se LDICOD = .KFTICO, KFT_NDE_S1Z) 
FLDIEL°= .KFTICO,KFT_NDE_POS) + REC1CO): 
FDT_IX = ,KFT2C0,KFT_FDT_IDX); 


IF TKFT2CO,KFT_CONSTANT)~ 
THEN 
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B28 TYP2 = ,FDTC.FDT_IX, FOT_TYPE); 
05 IF .TYP1 EQL DSCSK_OTYPE-Z THEN TYP1 = .TYP2; 
038 IF give EQL DSC$K-DTYPE-P 
44 FLD2COJ] = .FDTC.FOT_IX, FOT_FLD_S1Z] 
be8 ee = .KFT2CO, KFT_NDE_S1Z) 
se] FLb2e tg = -KFT2CO,KFT_NDE_POS] + REC2C0]; 
Boe If the types are different, simply distinguish the records 
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OT .KFT2CO,KFT_CONTINUE) THEN EXITLOOP; 
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IF (S = .KFT2CO,KFT_CONTINUE] - .KFTICO,KFT_CONTINUEJ) NEQ 0 
THEN RETURN .S; 
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0000 00000 CLEAN_UP: 


- S00(CTX), (RO) 
#2, SORSSDEALLOCATE 


292(CTX) 
39 
292(CTX) 
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; Routine Size: 39 bytes, Routine Base: SORSRO_CODE + 0831 


1-00-1964 00:54:10 YaN-UH OL ing=52 0-742 mm 
| 


: 1261 1 2 1 | ; 
3} 66 1 1 END | 3 
: 126 1324 0 ELUDOM | ; 
| : 
; PSECT SUMMARY : 
; Name Bytes Attributes ‘ 
et, ee 2 NOVEC, NOURT., RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
; SORSRO” CODE 2136 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC.ALIGN(2) ; 
; 0 NOVEC;NOWRT.NORD [NOEXE.NOSHR, LCL, ABS. CON.NOPIC.ALIGN(O) ; 
: Library Statistics : 
; Suna Syuhels conwseoe Pages Processing 3 
: File Total Loaded Percent Mapped Time ; 
: _$255$DUA28:(SYSLIBISTARLET. 13251 9776 109 1 581 00:01.0 y 
3 7$255$DUA28: (SORT32.SRCJSORL 18.1 32:1 151 36 34 00:00.4 
> 7$255$DUA28:CSORT32.SRCISRTSPC.L 196 20 16 12 00:00.1 
: 7$255$pUA28:CSORT32.SRCIJOPCODES.L 5! :1 15 4 18 00:00.4 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:SORSPEC/OBJ=OBJ$:SORSPEC MSRC$:SORSPEC/UPDATE=(ENHS: SORSPEC) 


; Size: 2047 o°e8s + 93 data bytes 
; Run Time: : 

; Elapsed Time: 2:33. oa 

: Lexemes/CPU-Min: 27070 


Y Used: 262 pages 
; Compilation Complete 


: COMMAND QUALIFIERS 
| 
| 
| 
| 
| 
| 
| 
J 
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